home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 126-150 / disk_144 / analyticalc / analykeypad.arc / AKFB.CMD < prev    next >
OS/2 REXX Batch file  |  1987-11-04  |  579b  |  41 lines
  1. /#
  2. //
  3. RM
  4. %4H      %*%%
  5. *C COPY COL OF DATA
  6. *C COPY FRST FROM 1ST CELL TO ROW, THEN FILL IN AREA
  7. TE P=%\*U HERE
  8. TE T-1.\R=%
  9. TE U-2.\S=%
  10. %qGive Start Cell of Row>%L %\
  11. TE *U HERE
  12. TE T-1.\B=%
  13. TE U-2.\C=%
  14. %Give End Cell of Row>%L %\
  15. TE *U HERE
  16. TE T-1.\D=%
  17. TE U-2.\E=%
  18. %Give Bottom Left of Left Column>%L %\
  19. TE *U HERE
  20. TE T-1.\F=%
  21. TE U-2.\G=%
  22. L A1
  23. TE G-C+1.\H=%
  24. TE B+1.\I=%
  25. TE C+1.\J=%
  26. *CLOOP
  27. *C LOOP
  28. *COOP
  29. CR P#%BC P#%IC:P#%DE
  30. TE C+1.\C=%
  31. TE E+1.\E=%
  32. TE H-1.\H=%
  33. TE *F LOOP
  34. *C SHOULD BE DONE HERE. EXIT.
  35. L A1
  36. L P#%RS
  37. TE %=P
  38. RF
  39. /#
  40.  
  41.